Top 10k strings from Full Screen Editor-Assembler (1984)(Oxford Computer Publishing).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TAP] (TOSEC-v2007-01-01) /
Back to the directory listing
4 PPress ENTER to continue < >
3 {IHBBBBBBBBBBBBBBB
3 {)HBBDFABDFABCBBBB
3 TAPE ERROR
3 HJames Hutchby
3 HBBCBJBCBBBGFABB
3 FOUND FILE:
3 ENTER COMMAND =>
3 @BBBBBBBBBBBBBBB
3 @BBASDBASDBHSDBB
3 ?~~~~w~?~~~?~~~~~?~~~~~~~~~~~~~~?~~~
3 ?wo}ww?ww~~???o{ww{
3 *^[&%>}/,-]'$<{?.+
3 (LENGTH),HL
3 START THE TAPE AND PRESS ANY KEYSourceCode!
3 Oxford Computer Publ. Ltd.
3 INVALID REQUEST
2 X"oq!sq"qq
2 UNDEFINED SYMBOL
2 TOTAL ERRORS
2 SYMBOL TABLE
2 OBJECT CODE BUFFER&
2 MULTIPLY DEFINED SYMBOL
2 MULTIPLE DEFINITION
2 MISSING INFORMATION
2 HL,(TLPNTR)
2 HL,(MAXLNG)
2 HL,(LENGTH)
2 HL,(COORDS)
2 FILE TOO BIG
2 FIELD OVERFLOW
2 Editor
2 Edit/Assem
2 DIVISION BY ZERO
2 BRANCH OUT OF RANGE
2 BAD OPCODE
2 BAD EXPRESSION
2 BAD ADDRESSING MODE
2 Assembler
2 ASSEMBLY ABORTED
2 @This function allows you to
2 ; screen using the keys as
2 ; follows:
2 ; border and its own tail.
2 ; X - exit
2 ; The snake must avoid both the
2 ; O - left P - right
2 ; Guide the snake around the
2 ; 1 - up Q - down
2 ; "Snake" - demo program
2 (TLPNTR),HL
2 OXFORD COMPUTER PUBLISHING
2 BYTES FREE (FROM H)
2 OUT OF MEMORY
2 NOT FOUND
1 zPr = Load normal char. < >
1 x"x-xExVxexyx
1 warm=24304
1 warm=24204
1 w$x$x+x+xOxOx}x
1 udg /
1 udg
1 k1kBkVkjkjk
1 cold=24301
1 cold=24201
1 character in the line is a semicolon. Blank lines are also allowed to space out a listing. Both comments and blank lines are ignored by the a/
1 `Ptyping symbol shift q.
1 `HThis allows you to recall any ofyour own chars.
1 _`ObjectCode
1 ^ObjectCode
1 ZPq = Load UDG char.
1 ZAP MADE IN MODULE XXXXXXXXXX
1 ZAP DATA EXCEEDS EXTENT
1 Snake-mc <
1 Snake-mc
1 Snake-Inst
1 Snake
1 SYMBOL IS UNDEFINED
1 START ; Restart
1 Pt = Stop
1 Ps = Help
1 Pprogram from the memory if your BASIC program is more than a
1 Po = Edit char.
1 PTo restart the UDG program (if still in memory) type GOTO 20.
1 PThis allows you to load any of the normal char. set into the grid. The "
1 PRTCHR ; yellow body
1 PRTCHR ; print it
1 PRTCHR ; snake.
1 PENTER CHAR. < >
1 NZ ; Multiple keys
1 NC ; No key pressed
1 MOVEHD ; move head
1 MODULE ALREADY LOADED
1 MEMORY FULL
1 LOOP ; continue
1 L ; to the right
1 L ; move to the left
1 L ; divide by 4
1 INVALID COMMAND+DOS ERROR XXH ON
1 INKEY ; scan keys
1 INIT ; initialise
1 Hnumeric columns to the left of the grid also changing. These are the numeric values of the rows of the grid in hexadecimal and decimal form. The char. in the bottom right-hand corner
1 Hhowever, that you might have to type NEW to clear the UDG
1 HTo select a function, position the cursor between the following< > symbols and press ENTER. TheENTER key is also used to exit the functions.
1 HThe program offers 6 functions.
1 HThe program displays each char. in a grid form, with each dot ofthe 64 dots that go to make up achar. enlarged 256 times.
1 HL; increment length
1 HL; decrement length
1 HL,TLPOSN ; cycle it
1 HL,TLPOSN ; cycle
1 HL,DISFLE+6*1024
1 HL,DE ; too long ?
1 HL,DE ; pointer
1 HL,DE ; Move
1 HL,BC ; restore HL
1 HL,15 ; sound a
1 HL,0C10H ; centre of
1 HL,(TLPNTW)
1 HL ; empty stack
1 HL ; Save it
1 HL ; Empty stack
1 HL ; increment max.
1 HL ; tail posn.
1 HL ; clear ?
1 H4. Load normal char.
1 H ; move up
1 H ; move down
1 H ; HL <= HL + 256
1 DELAY ; scale.
1 DE,TLPOSN+510
1 DE,SPACE ; Blank out
1 DE,DISFLE+6*1024+1
1 DE,DISFLE+1
1 DE,0750 ; short,high
1 DE,(LENGTH)
1 DE ; next byte
1 Cn9n=nEn;nGnMnOnSnSnZnananhn~n
1 CLS ; Snake moves
1 C,MOVETL ; move tail
1 C,7*8+7 ; end of
1 C,7*8+4 ; green head
1 C,4*8+6 ; green and
1 BEEP ; pitched tone.
1 BC,TLPOSN+510
1 BC,6*1024-1
1 BC,3*256-1
1 BC,1000 ; upper
1 BAD RLD FILE
1 B,8 ; 8 rows in char
1 B,100 ; Wait for
1 B ; B <= 3
1 B ; B <= 2
1 B ; B <= 1
1 A` ; Direction the head is moving :
1 ADDRESS NOT FOUND
1 A,B ; new direction
1 A,17 ; Output a
1 A,1 ; Blue
1 A,(HL) ; is the way
1 A,(DIRCTN)
1 A,(DE) ; row data =>
1 A,(23693); permanent
1 A ; initially to the
1 A ; limit
1 @store your own chars. in the
1 @move the cursor anywhere in the grid. Typing SPACE will remove adot, any other key will add a dot. If you change the char. in the grid you will see the 2
1 @change the char. in the grid. Using keys 5,6,7 & 8 you can
1 @area set aside for them above RAMTOP.
1 @User Defined Graphics
1 @UDG is a program to help you to develop your own graphic chars. quickly and simply.
1 @This function will return you tothese explanatory notes.
1 @Pwill also change. This is the actual size of the char. in the grid.
1 @Pfew statements long.
1 @FUNCTIONS (3)
1 @FUNCTIONS (2)
1 @FUNCTIONS (1)
1 @@5. Help.
1 @@2. Save UDG char.
1 @@1. Edit Char.
1 ?PAHG@IPOHQ@O
1 ; viewed on a 48k Spectrum.
1 ; this program can only be
1 ; the print position , the DE
1 ; tails position.
1 ; snake's head.
1 ; snake's body and head.
1 ; returning to BASIC and typing
1 ; reset attributes
1 ; register pair pointing to
1 ; point in the display file.
1 ; point in the attributes area.
1 ; or insert an ORG statement
1 ; of the attributes memory.
1 ; desired colour attributes.
1 ; containing the x,y coords of
1 ; code follows this text on the
1 ; cassette, and may be run by
1 ; and execute using 'RUN'
1 ; and assemble to tape.
1 ; Write Pointer into the above.
1 ; This subroutine clears the
1 ; The full source listing of
1 ; Subroutine to move the tail
1 ; Subroutine to move the head
1 ; Stores the position of the
1 ; Stores the coords of the
1 ; Routine to read the keyboard
1 ; Read pointer into the above.
1 ; Print character subroutine
1 ; Maximum length of snake.
1 ; Length of snake.
1 ; Initialisation
1 ; However, the assembled object
1 ; HL now points to the relevant
1 ; HL now points to the 1St byte
1 ; Fed with the HL register pair
1 ; Dot matrix data for the
1 ; C register containing the
1 ; Assemble into memory (A/IM)
1 ; 8 bytes of row data and the
1 ; 3 = DOWN
1 ; 1 = RIGHT
1 ; 0 = LEFT
1 ; & border colours.
1 ; LOAD "Snake-mc" or LOAD "".
1 ; Instructions
1 ; and paper
1 ; 2 seconds
1 :Pp = Save UDG char.
1 8L@Assembler
1 8I@Editor/Assembler
1 7*8+7 ; ahead
1 16384 ; Display file
1 03B5H ; Beeper
1 031EH ; Test keycode
1 028EH ; Scan keys
1 *3m###"3m*5m
1 (TLPNTW),HL ; update
1 (TLPNTW),HL
1 (MAXLNG),HL ; length
1 (MAXLNG),HL
1 (HL),E ; Store new
1 (HL),C ; Set colours
1 (HL),A ; disp file
1 (HL),A ; colours
1 (HL),63 ; White ink
1 (DIRCTN),A ; left
1 (DIRCTN),A
1 (COORDS),HL ; screen
1 (COORDS),DE
1 (254),A ; falling
1 (254),A ; border
1 'p ; HL points to the corresponding
1 $ ; Snake crashed
1 $ ; Print character
1 $ ; Clear screen
1 "M-ZAL OBJECT MODULE LINKER VER 2.01COPYRIGHT 1981 BY COMPUTER APPLICATIONS UNLIMITED,ORG = 7C09H TRAN = 0000H UNRESOLVED = 00
1 "(C)old or (W)arm start ? ";a$:
1 " is obtained by
1 HThis function will return you toBASIC. At this point you can useany chars. you have created and saved in the area set aside for them above RAMTOP. Remember,
1 H3. Load UDG char.
1 F. Ainley 1982
1 ; screen and sets the attributes
1 ((() 0